home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / pc / builders / media / netacess / hminet.dir / 00025_Script_25 < prev    next >
Text File  |  1997-04-04  |  852b  |  44 lines
  1. on exitFrame
  2.   
  3.   global WebBrowser
  4.   
  5.   --
  6.   -- wait here for AOL to go online
  7.   --
  8.   
  9.   if the machineType = 256 then
  10.     if WebBrowser(mIsBrowserRunning) = 0 then
  11.       go "Start"
  12.     else
  13.       if WebBrowser(mIsAOLOnline) <> 0 then
  14.         go frame the frame
  15.       end if
  16.     end if
  17.     
  18.   else
  19.     put 1 into myError
  20.     
  21.     put "Waiting for AOL to go online" into cast "status"
  22.     
  23.     put Browser( "AOLOnline" ) into myError
  24.     
  25.     if myError <> 0 then
  26.       go frame the frame
  27.       
  28.       
  29.       
  30.       if myError = 0 then
  31.         put "AOL is Online" into cast "status"
  32.       end if
  33.       --
  34.       -- if the user hits cancel, we need to cancel out of this launch
  35.       --
  36.       if myError = -600 then 
  37.         set myError = 0
  38.         go to "Start"
  39.       end if
  40.       
  41.     end if
  42.     
  43.   end if
  44. end